home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr47 / shwtxt16.zip / DEMO.ST < prev    next >
Text File  |  1995-03-13  |  3KB  |  57 lines
  1. '       DEMO.ST - Demonstration Program
  2.         ON INTKEY0 ESC GOTO QUIT\RIGHT MOUSE ESC\COPY(DEMO,1)
  3. :START\ COPY(1,0)\COLOR 3,4\WINDOW(2,20,21,58)104\CSR(6,23,16,23)
  4. :LOOP\  %R=[R.]\IF (%R&1)=1 GOTO LOOP1\CSR
  5.         FOR %B=1 TO 2\BXOR 0 (%R,22,%R,56) 8\WAIT .09\NEXT %B\GOTO LOOP2
  6. :LOOP1\ CSR
  7. :LOOP2\ WAITKEY 0,LOOP\CSR OFF\BFILL 0 (6,22,16,56)32 31\COLOR 15,1
  8.         IF KEY A ANMT \IF KEY B BATCH\IF KEY D DEMO
  9.         IF KEY G GAME \IF KEY T TUTOR\IF KEY R REG
  10.         IF CLK(6,22,6,56)ANMT   \IF CLK(8,22,8,56)BATCH
  11.         IF CLK(10,22,10,56)DEMO \IF CLK(12,22,12,56)GAME
  12.         IF CLK(14,22,14,56)TUTOR\IF CLK(16,22,16,56)REG
  13.         GOTO START
  14. :ANMT\  P@ 7,22\!"The ShowText system offers limited"
  15.         P@ 8,22\!"animation effects by continually"
  16.         P@ 9,22\!"copying preloaded screen files and"
  17.         P@10,22\!"internal buffers to the screen. A"
  18.         P@11,22\!"portion of a buffer may be copied"
  19.         P@12,22\!"to the screen with the BCOPY"
  20.         P@13,22\!"command etc."
  21.         GOTO ANYKEY
  22. :BATCH\ P@ 6,22\!"The ShowText system will allow the"
  23.         P@ 7,22\!"user to build fairly complex batch"
  24.         P@ 8,22\!"file systems.  This is accomplished"
  25.         P@ 9,22\!"by using the IF ERRORLEVEL batch"
  26.         P@10,22\!"statement.  Upon exiting your"
  27.         P@11,22\!"compiled EXE program, the batch"
  28.         P@12,22\!"file can use the IF ERRORLEVEL"
  29.         P@13,22\!"command to determine if it should"
  30.         P@14,22\!"GOTO a batch file label."
  31.         GOTO ANYKEY
  32. :DEMO\  P@ 7,22\!"The ShowText system can be used to"
  33.         P@ 8,22\!"develop some fairly complex DEMO"
  34.         P@ 9,22\!"and/or game programs."
  35.         GOTO ANYKEY
  36. :GAME\  P@ 7,22\!"It is possible to use the ShowText"
  37.         P@ 8,22\!"system to design ASCII text based"
  38.         P@ 9,22\!"games.  Try out the games which are"
  39.         P@10,22\!"included: GUESS, PUZZLE, MATCH,"
  40.         P@11,22\!"MMIND and REPEAT."
  41.         GOTO ANYKEY
  42. :TUTOR\ P@ 7,22\!"The ShowText system can be used to"
  43.         P@ 8,22\!"design interactive tutorials.  The"
  44.         P@ 9,22\!"user can select answers to multiple"
  45.         P@10,22\!"choice questions by using the mouse"
  46.         P@11,22\!"or keyboard."
  47.         GOTO ANYKEY
  48. :REG\   P@ 7,22\!"The REGISTERED copy of ShowText"
  49.         P@ 8,22\!"will not generate the initial"
  50.         P@ 9,22\!"UNREGISTERED version banner."
  51.         P@13,22\!"A text screen capture program is"
  52.         P@14,22\!"included in the REGISTERED version."
  53. :ANYKEY\COLOR 15,1\P@16,26\!!"Press any key to continue"
  54.         WAITKEY\CSR\GOTO START
  55. :QUIT\  EXITC
  56.  
  57.